home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 1
/
LIGHT-ROM 1 (Amiga Library Services)(1994).iso
/
ffdisks
/
d885.lha
/
False
/
other
/
eval.f
< prev
next >
Wrap
Text File
|
1993-07-16
|
422b
|
12 lines
{
SYNTAX: a.out <Expression> <operand> <Expression>
<Expression> = num | (<Expression> <operand> <Expression> )
ex.: a.out (((3*(4+2))-2)^2)-4
}
[^a:a;'(=$[m;!b:^a:]?~[a;0b:[a:'0 a;>~'91+a;>&][b;10
*b:a;'0-b;+b:^]#]?b;[a;32=][^a:]#a;^a:a;'(=$[m;!b:^a
:]?~[a;0b:[a:'0a;>~'91+a;>&][b;10*b:a;'0-b;+b:^]#]?b
;b:o:a:o;'*=[a;b;*]?o;'+=[a;b;+]?o;'-=[a;b;-]?o;'/=[
a;b;/]?o;'^=[a;c:[b;1>][c;a;*c:b;1-b:]#c;]?]m:m;!."
"